home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / CLLINE.for < prev    next >
Text File  |  1991-04-13  |  496b  |  20 lines
  1.         SUBROUTINE CLLINE(X1,Y1,X2,Y2)
  2.         IMPLICIT NONE
  3.         REAL*4 X1,Y1,X2,Y2
  4. C
  5. C       THIS SUBROUTINE DRAWS THE LINE FROM X1,Y1 TO X2,Y2 WITH
  6. C       THE APPROPIATE CLIPPING
  7. C
  8.         INCLUDE DIGLIB$KOM:PLTSIZ.PRM
  9. C
  10.         REAL*4 AREA(4),VX,VY
  11. C
  12.         CALL GSSCLP(XVSTRT,XVSTRT+XVLEN,YVSTRT,YVSTRT+YVLEN,AREA)
  13.         CALL SCALE(X1,Y1,VX,VY)
  14.         CALL GSMOVE(VX,VY)
  15.         CALL SCALE(X2,Y2,VX,VY)
  16.         CALL GSDRAW(VX,VY)
  17.         CALL GSRCLP(AREA)
  18.         RETURN
  19.         END
  20.